﻿#提交问卷http://10.201.2.13:8080/ec/addEBusiness

use strict;

sub wapLogin
{
	my ($wap_addr,$token) = @_;
	
	my $ck=HTTP::Cookies->new();
	my $browser=LWP::UserAgent->new(agent=>'Mozilla/5.0',cookie_jar=>$ck);
	
	#print "--- $wap_addr/?token=$token ---\n";
	
	my $return = $browser->get("$wap_addr/?token=$token")->content;
	
	#print "--- $return ---\n";
	&verification("mgt","wapLogin",$browser,$return);
	
	return $browser;
}
1;